home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / DiskUtil / Info / QDisk / Install next >
Text File  |  1995-11-24  |  1KB  |  55 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro "Wilkommen zum Installer-Script für QDisk")
  4.         (SET WBin  "Wohin soll das Binary von QDisk hinkopiert werden ?")
  5.         (SET Doc   "Es existiert eine Anleitung zu QDisk. Soll diese kopiert werden ?")
  6.         (SET WDoc  "Wohin soll die Anleitung zu QDisk hinkopiert werden ?")
  7.     )
  8. )
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro "Welcome to the installer-script for QDisk")
  12.         (SET WBin  "Where do you want me to place the binary of QDisk ?")
  13.         (SET Doc   "There is a document for QDisk. Do you want to copy it ?")
  14.         (SET WDoc  "Where do you want to place the document for QDisk ?")
  15.     )
  16. )
  17.  
  18. (MESSAGE Intro)
  19.  
  20. (SET BinDir
  21.     (ASKDIR
  22.         (PROMPT WBin)
  23.         (HELP   "")
  24.         (DEFAULT "sys:")
  25.     )
  26. )
  27.  
  28. (COPYFILES
  29.     (SOURCE ":DiskUtil/Info/QDisk/QDisk")
  30.     (DEST   BinDir)
  31.     (INFOS)
  32. )
  33.  
  34. (IF
  35.     (ASKBOOL
  36.         (PROMPT Doc)
  37.         (HELP "")
  38.     )
  39.     (
  40.         (SET DocDir
  41.             (ASKDIR
  42.                 (PROMPT WDoc)
  43.                 (HELP   "")
  44.                 (DEFAULT BinDir)
  45.             )
  46.         )
  47.         (COPYFILES
  48.             (SOURCE ":DiskUtil/Info/QDisk/QDisk.guide")
  49.             (DEST   DocDir)
  50.             (INFOS)
  51.         )
  52.     )
  53. )
  54.  
  55.